Fix last dbus change

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 6214505ad866624044ff98626cb84e2be749ea50..5c1296de1fab14872241f32f1de925955a552bcd 100644 (file)
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -283,7 +283,9 @@ object is returned instead of a list containing this single Lisp object.
         (let ((event (let ((inhibit-redisplay t) unread-command-events)
                       (read-event nil nil check-interval))))
           (when event
-            (push event unread-command-events))
+            (setf unread-command-events
+                  (nconc unread-command-events
+                         (cons event nil))))
           (when (< check-interval 1)
             (setf check-interval (* check-interval 1.05))))))